From 87b82b5822ca54228cfa6df29be3ad9d4bc47d16 Mon Sep 17 00:00:00 2001 From: Bryan Newbold Date: Mon, 20 Feb 2017 00:05:28 -0800 Subject: Import Upstream version 2d2 --- defmacex.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'defmacex.scm') diff --git a/defmacex.scm b/defmacex.scm index bdaf020..5863c94 100644 --- a/defmacex.scm +++ b/defmacex.scm @@ -1,9 +1,9 @@ ;;;"defmacex.scm" defmacro:expand* for any Scheme dialect. ;;;Copyright 1993-1994 Dorai Sitaram and Aubrey Jaffer. ; -;Permission to copy this software, to redistribute it, and to use it -;for any purpose is granted, subject to the following restrictions and -;understandings. +;Permission to copy this software, to modify it, to redistribute it, +;to distribute modified versions, and to use it for any purpose is +;granted, subject to the following restrictions and understandings. ; ;1. Any copy made of this software must include this copyright notice ;in full. @@ -92,5 +92,9 @@ (cadr e)) ,(map defmacro:expand* (caddr e)) ,@(map defmacro:expand* (cdddr e)))) + ((defmacro) + (cons (car e) + (cons (cadr e) + (cons (caddr e) (map defmacro:expand* (cdddr e)))))) (else (map defmacro:expand* e))))) e)) -- cgit v1.2.3