diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-14 17:20:50 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-14 17:20:50 +0000 |
| commit | a0e66d6ee5a830dcec95c5732ac4e7c200650400 (patch) | |
| tree | 8304a678454889f5552d30f7c151deee5edcd248 /src/interp/pspad1.boot | |
| parent | 737be2084042a41c9f818660b0eac0ba43254c9e (diff) | |
| download | open-axiom-a0e66d6ee5a830dcec95c5732ac4e7c200650400.tar.gz | |
Revert accidental commit from experimental branch
Diffstat (limited to 'src/interp/pspad1.boot')
| -rw-r--r-- | src/interp/pspad1.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/pspad1.boot b/src/interp/pspad1.boot index 39f86ec2..775236e0 100644 --- a/src/interp/pspad1.boot +++ b/src/interp/pspad1.boot @@ -311,7 +311,7 @@ formatDOLLAR ['DOLLAR,x,y] == formatDollar1(y, x) formatDollar1(name,arg) == id := IDENTP name => name - name is [p] and niladicConstructorFromDB p => p + name is [p] and GETL(p,"NILADIC") => p name format arg and format "$$" and formatForcePren id @@ -379,7 +379,7 @@ formatFunctionCall u == formatFunctionCall1 [op,:argl] == --null argl and getConstructorProperty(op,'niladic) => formatOp op null argl => - niladicConstructorFromDB op => formatOp op + GETL(op,"NILADIC") => formatOp op formatOp op and format "()" formatOp op and formatFunctionCallTail argl |