diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-10-05 03:06:07 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-10-05 03:06:07 +0000 |
| commit | 4da4e775ade14aa9e8c2d0b4b106e743e4d283a4 (patch) | |
| tree | 19637c59f3b6bb3748c84edcc348ba68ee8614b7 /src/interp/define.boot | |
| parent | 27362ea43a4c1da88e23e3014c0fcb66ef7a2cfc (diff) | |
| download | open-axiom-4da4e775ade14aa9e8c2d0b4b106e743e4d283a4.tar.gz | |
* interp/c-util.boot (isAtomicForm): New.
(replaceSimpleFunctions): Use it. Simplify back to original
implementation.
(proclaimCapsuleFunction): Constructor parameters are generic.
* interp/sys-utility.boot (getVMType): Handle wildcard.
* algebra/stream.spad.pamphlet: Don't build STREAM with
proclamation on -- it currently violates type rules.
Diffstat (limited to 'src/interp/define.boot')
| -rw-r--r-- | src/interp/define.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index 5939cdcb..58c39f1b 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -927,8 +927,8 @@ compDefineCapsuleFunction(df is ['DEF,form,signature,specialCases,body], e:= compArgumentConditions e if $profileCompiler then - for x in argl for t in rest signature' repeat profileRecord('arguments,x,t) - + for x in argl for t in rest signature' repeat + profileRecord('arguments,x,t) --4. introduce needed domains into extendedEnv for domain in signature' repeat e:= addDomain(domain,e) |