Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Allow eval to handle syntax-rules

Browse source
This commit is contained in:
Justin Ethier 2017-12-08 12:56:55 -05:00
parent 28c5672b0a
commit 5adf35a364
1 changed files with 11 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
scheme/eval.sld
View file

@ -468,23 +468,21 @@
(define (analyze-syntax exp a-env)
(let ((var (cadr exp)))
(cond
((tagged-list? 'er-macro-transformer (caddr exp))
(let ((sproc (make-macro (cadr (caddr exp))))) ;(analyze-syntax-lambda (cadr (caddr exp)) a-env)))
((tagged-list? 'er-macro-transformer (caddr exp)) ;; TODO: need to handle renamed er symbol here??
(let ((sproc (make-macro (cadr (caddr exp)))))
(lambda (env)
(env:define-variable! var sproc env)
'ok)))
(else
;; TODO: need to support syntax-rules, and other methods of
;; building a macro. maybe call into something like
;; analyze-syntax-lambda instead of erroring here
(error "macro syntax not supported yet")))))
;(define (analyze-syntax-lambda exp a-env)
; (let ((vars (lambda-parameters exp))
; (bproc (analyze-sequence (lambda-body exp) a-env)))
; (write `(debug ,(lambda-body exp)))
; ;(lambda (env)
; (make-macro `(lambda ,vars ,@(lambda-body exp)))))
;; Just expand the syntax rules
;; Possibly want to check the macro system here
(let* ((rename-env (env:extend-environment '() '() '()))
(expanded (expand exp a-env rename-env))
(cleaned (macro:cleanup expanded rename-env)))
(let ((sproc (make-macro (caddr cleaned))))
(lambda (env)
(env:define-variable! var sproc env)
'ok)))))))
(define (analyze-import exp env)
(lambda (env)