diff options
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/awk.tl | 12 | ||||
| -rw-r--r-- | share/txr/stdlib/struct.tl | 4 |
2 files changed, 8 insertions, 8 deletions
diff --git a/share/txr/stdlib/awk.tl b/share/txr/stdlib/awk.tl index 949991ea..cb6e73c9 100644 --- a/share/txr/stdlib/awk.tl +++ b/share/txr/stdlib/awk.tl @@ -351,10 +351,10 @@ subform kind suspicious-vars))) (defmacro sys:awk-mac-let (awc aws-sym . body) - ^(symacrolet ((rec (rslot ,aws-sym 'rec 'rec-to-f)) - (orec (rslot ,aws-sym 'orig-rec 'rec-to-f)) - (f (rslot ,aws-sym 'fields 'f-to-rec)) - (nf (rslot ,aws-sym 'nf 'nf-to-f)) + ^(symacrolet ((rec (usr:rslot ,aws-sym 'rec 'rec-to-f)) + (orec (usr:rslot ,aws-sym 'orig-rec 'rec-to-f)) + (f (usr:rslot ,aws-sym 'fields 'f-to-rec)) + (nf (usr:rslot ,aws-sym 'nf 'nf-to-f)) (nr (qref ,aws-sym rec-num)) (fnr (qref ,aws-sym file-rec-num)) (arg (qref ,aws-sym file-num)) @@ -449,10 +449,10 @@ (-rng+ (:form form from-expr to-expr) ^(sys:rng-if ,form ,from-expr ,to-expr)) (--rng+ (:form form from-expr to-expr) ^(sys:rng-if ,form ,from-expr ,to-expr)) (ff (. opip-args) - ^(symacrolet ((f (rslot ,',aws-sym 'fields 'f-to-rec))) + ^(symacrolet ((f (usr:rslot ,',aws-sym 'fields 'f-to-rec))) (set f [(opip ,*opip-args) f]))) (mf (. opip-args) - ^(symacrolet ((f (rslot ,',aws-sym 'fields 'f-to-rec))) + ^(symacrolet ((f (usr:rslot ,',aws-sym 'fields 'f-to-rec))) (set f (mapcar (opip ,*opip-args) f)))) (fconv (. conv-args) ^(set f (sys:conv (,*conv-args) f))) diff --git a/share/txr/stdlib/struct.tl b/share/txr/stdlib/struct.tl index 91d04f81..86b86197 100644 --- a/share/txr/stdlib/struct.tl +++ b/share/txr/stdlib/struct.tl @@ -316,10 +316,10 @@ (slotset struct sym val) (call (umethod meth-sym) struct))) -(defmacro rslot (struct sym meth-sym) +(defmacro usr:rslot (struct sym meth-sym) ^(slot ,struct ,sym)) -(define-place-macro rslot (struct sym meth-sym) +(define-place-macro usr:rslot (struct sym meth-sym) ^(sys:rslot ,struct ,sym ,meth-sym)) (defplace (sys:rslot struct sym meth-sym) body |