aboutsummaryrefslogtreecommitdiff
path: root/src/interp/define.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r--src/interp/define.boot5
1 files changed, 1 insertions, 4 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot
index d40033e0..ad52ec88 100644
--- a/src/interp/define.boot
+++ b/src/interp/define.boot
@@ -257,11 +257,8 @@ checkRepresentation(addForm,body,env) ==
$subdomain := true
dom
addForm
- base := compForMode(domainRep,$EmptyMode,env) or
- stackAndThrow('"1b is not a domain",[domainRep])
$useRepresentationHack := false
- env := put("Rep","value",removeEnv base,env)
- -- ??? Maybe we should also make Rep available as macro?
+ env := put('Rep,'macro,domainRep,env)
env