--- a/ac.scm	2009-12-07 12:12:00.000000000 -0500
+++ b/ac.scm	2009-12-07 12:11:08.000000000 -0500
@@ -68,7 +68,7 @@
           (unescape-ats s))
       (string-copy s)))          ; avoid immutable strings
 
-(define (literal? x)
+(defarc ac-literal (literal? x)
   (or (boolean? x)
       (char? x)
       (string? x)