(add-top-level-variable) should return accessors as list, not values.

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))