From 5441714fbd0dbc1fc90cfd433ec655e3ff61d04c Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 28 Aug 2015 23:52:12 -0400 Subject: [PATCH] Added TODO --- scheme/cyclone/macros.sld | 2 ++ 1 file changed, 2 insertions(+) diff --git a/scheme/cyclone/macros.sld b/scheme/cyclone/macros.sld index 1bbde7d6..d4371cde 100644 --- a/scheme/cyclone/macros.sld +++ b/scheme/cyclone/macros.sld @@ -41,6 +41,8 @@ (tagged-list? 'define-syntax exp)) (define (macro:macro? exp defined-macros) (assoc (car exp) defined-macros)) +TODO: seems to be a problem with below. may want to revert and try and see if that works, then +restore this and debug... (define (macro:expand macro-val exp mac-env) (let* ( ;(macro (assoc (car exp) defined-macros)) (compiled-macro? (or (macro? (Cyc-get-cvar macro-val))