aboutsummaryrefslogtreecommitdiff
path: root/src/interp/g-util.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/g-util.boot')
-rw-r--r--src/interp/g-util.boot4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/interp/g-util.boot b/src/interp/g-util.boot
index a43ff7c7..8313c000 100644
--- a/src/interp/g-util.boot
+++ b/src/interp/g-util.boot
@@ -122,6 +122,10 @@ walkWith!(x,f) ==
ys.first := walkWith!(first ys,f)
apply(f,x,nil)
+listify x ==
+ x is [.,:.] => x
+ [x]
+
--%
++ List of category constructors that do not have entries in the