diff options
Diffstat (limited to 'src/boot/utility.boot')
| -rw-r--r-- | src/boot/utility.boot | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/boot/utility.boot b/src/boot/utility.boot index 139e98d0..5b870a6d 100644 --- a/src/boot/utility.boot +++ b/src/boot/utility.boot @@ -214,6 +214,7 @@ substitute(y,x,s) == s applySubst(sl,t) == + sl = nil => t cons? t => hd := applySubst(sl,first t) tl := applySubst(sl,rest t) @@ -223,6 +224,7 @@ applySubst(sl,t) == t applySubst!(sl,t) == + sl = nil => t cons? t => hd := applySubst!(sl,first t) tl := applySubst!(sl,rest t) @@ -233,6 +235,7 @@ applySubst!(sl,t) == ++ Like applySubst, but skip quoted materials. applySubstNQ(sl,t) == + sl = nil => t t is [hd,:tl] => hd is 'QUOTE => t hd := applySubstNQ(sl,hd) |