From fde689fb50f2102a11fac246ab0d1ba9861b58ba Mon Sep 17 00:00:00 2001
From: Jesse McDonald <nybble41@gmail.com>
Date: Sat, 14 Jul 2012 14:57:06 -0500
Subject: [PATCH] (add-top-level-variable) should return accessors as list, not
 values.

---
 src/compiler.rls | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/compiler.rls b/src/compiler.rls
index c919ccc..2c2bfa8 100644
--- a/src/compiler.rls
+++ b/src/compiler.rls
@@ -646,7 +646,7 @@
                                 report-use-before-set)
                             (lambda (val) (set-car! accessors (lambda () val))))])
     (hash-table-insert *top-level-variables* symbol accessors)
-    (apply values accessors)))
+    accessors))
 
 (define (register-top-level-binding symbol value)
   (register-symbols (list symbol))