nybble
/
rosella
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

This commit is contained in:
Jesse D. McDonald 2012-07-14 14:57:06 -05:00
parent 66d3ff9d38
commit fde689fb50
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler.rls
View File

@ -646,7 +646,7 @@
report-use-before-set) report-use-before-set)
(lambda (val) (set-car! accessors (lambda () val))))]) (lambda (val) (set-car! accessors (lambda () val))))])
(hash-table-insert *top-level-variables* symbol accessors) (hash-table-insert *top-level-variables* symbol accessors)
(apply values accessors))) accessors))
(define (register-top-level-binding symbol value) (define (register-top-level-binding symbol value)
(register-symbols (list symbol)) (register-symbols (list symbol))