aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-util.boot
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2008-04-12 17:18:32 +0000
committerdos-reis <gdr@axiomatics.org>2008-04-12 17:18:32 +0000
commit3c748c0ab1f5119528ae3ae41cc144371b1b375c (patch)
treeca305a2290cc49f30064d0f5e17a8301fd83c614 /src/interp/g-util.boot
parentc65ac216959772cd6955c9dc050b98d38d7492da (diff)
downloadopen-axiom-3c748c0ab1f5119528ae3ae41cc144371b1b375c.tar.gz
* interp/ax.boot: Use getConstructorModemap throughout.
* interp/br-data.boot: Likewise. * interp/br-op1.boot: Likewise. * interp/br-prof.boot: Likewise. * interp/br-search.boot: Likewise. * interp/br-util.boot: Likewise. * interp/cattable.boot: Likewise. * interp/daase.lisp: Likewise. * interp/g-util.boot: Likewise. * interp/lisplib.boot: Likewise. * interp/nrunopt.boot: Likewise.
Diffstat (limited to 'src/interp/g-util.boot')
-rw-r--r--src/interp/g-util.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index 3bcb22da..80dceba0 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -504,7 +504,7 @@ str2Tex s ==
val := objValUnwrap val
CAR val.1
-opOf: %Thing -> %Thing
+opOf: %Form -> %Symbol
opOf x ==
atom x => x
first x