Fixed name not matching up with global

This commit is contained in:
Justin Ethier 2015-08-28 22:03:11 -04:00
parent c887cfe04b
commit 09a6529525

View file

@ -27,7 +27,7 @@
#t) #t)
(define (macro:load-env! defined-macros) (define (macro:load-env! defined-macros)
(set! *macro-env* (env:extend-environment (set! *macro:env* (env:extend-environment
(map car defined-macros) (map car defined-macros)
(map cdr defined-macros) (map cdr defined-macros)
env:the-empty-environment))) env:the-empty-environment)))