Another bug in compile-literals.

dvanhorn · dvanhorn · commit a61b633f2f21 · 2021-12-31T23:39:00.000-05:00
diff --git a/langs/outlaw/test/test-runner.rkt b/langs/outlaw/test/test-runner.rkt
@@ -666,6 +666,8 @@
   (check-equal? (run '(struct posn (x y))
                      '(procedure? (posn 3 4)))
                 #f)
+  (check-equal? (run '(apply string-append (list "x")))
+                "x")
   )
 
 

Original file line number	Diff line number	Diff line change
`@@ -666,6 +666,8 @@`
`666`	`666`	`(check-equal? (run '(struct posn (x y))`
`667`	`667`	`'(procedure? (posn 3 4)))`
`668`	`668`	`#f)`
	`669`	`+ (check-equal? (run '(apply string-append (list "x")))`
	`670`	`+ "x")`
`669`	`671`	`)`
`670`	`672`
`671`	`673`