Only do macro env lookup once

macro-test.scm

@@ -52,23 +52,27 @@
      result
      (append begin-exprs (cdr exp))
      env)))
-   ;; Expand macro here so we can catch begins in the expanded code,
-   ;; including nested begins
-   ((and (app? (car exp))
-         (symbol? (caar exp))
-         (tagged-list? 'macro (env:lookup (caar exp) env #f)))
-    (let ((expanded (macro:expand (car exp) (env:lookup (caar exp) env #f) env)))
-      (expand-body
-        result
-        (cons expanded (cdr exp))
-        env)))
    (else
-     (expand-body
+    (let ((macro #f))
-      (cons 
+      (when (and (app? (car exp))
-        (inner-expand (car exp) env)
+                 (symbol? (caar exp)))
-        result)
+        (set! macro (env:lookup (caar exp) env #f)))
-      (cdr exp)
+      (if (tagged-list? 'macro macro)
-      env))))
+          ;; Expand macro here so we can catch begins in the expanded code,
+          ;; including nested begins
+          (let ((expanded (macro:expand (car exp) macro env)))
+            ;; Call with expanded macro in case we need to expand again
+            (expand-body
+              result
+              (cons expanded (cdr exp))
+              env))
+          ;; No macro, use main expand function to process
+          (expand-body
+           (cons 
+             (inner-expand (car exp) env)
+             result)
+           (cdr exp)
+           env))))))
 
 (define (my-expand exp env)
   (inner-expand exp env))