From 6c2958cf6c452677847e6da21c29127b7a32b1e2 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 5 Aug 2015 02:03:24 -0400 Subject: [PATCH] WIP --- scheme/cyclone/transforms.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/scheme/cyclone/transforms.scm b/scheme/cyclone/transforms.scm index 2acb7730..ace90b38 100644 --- a/scheme/cyclone/transforms.scm +++ b/scheme/cyclone/transforms.scm @@ -913,12 +913,12 @@ ;; if found. would then want to continue expanding. may need to ;; return some value such as #t or nil as a placeholder, since the ;; define-syntax form would not be carried forward in the compiled code - ((define-syntax? exp) - (let* ((name (cadr exp)) - (trans (caddr exp)) - (body (cadr trans))) - (set! *defined-macros* (cons (cons name body) *defined-macros*)) - #t)) +; ((define-syntax? exp) ;; TODO: not good enough, should do error checking, and make sure list is big enough for cadr +; (let* ((name (cadr exp)) +; (trans (caddr exp)) +; (body (cadr trans))) +; (set! *defined-macros* (cons (cons name body) *defined-macros*)) +; #t)) ((macro? exp) (expand ;; Could expand into another macro (macro-expand exp)))