aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-util.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/c-util.boot')
-rw-r--r--src/interp/c-util.boot3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/interp/c-util.boot b/src/interp/c-util.boot
index e79aba6b..1403eaf8 100644
--- a/src/interp/c-util.boot
+++ b/src/interp/c-util.boot
@@ -132,7 +132,8 @@ substituteDollarIfRepHack m ==
++ current functor, if any.
getRepresentation: %Env -> %Maybe %Mode
getRepresentation e ==
- (get("Rep","value",e) or return nil).expr
+ u := get('Rep,'value,e) => u.expr
+ get('Rep,'macro,e)
++ Returns true if the form `t' is an instance of the Tuple constructor.