aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-saturn.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-saturn.boot')
-rw-r--r--src/interp/br-saturn.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot
index 547b193c..a06b0f8f 100644
--- a/src/interp/br-saturn.boot
+++ b/src/interp/br-saturn.boot
@@ -938,7 +938,7 @@ addParameterTemplates(page, conform) ==
kPageArgs([op,:args],[.,.,:source]) ==
htSaySaturn '"\begin{tabular}{p{.25in}lp{0in}}"
firstTime := true
- coSig := rest getDualSignatureFromDB op
+ coSig := rest getDualSignature op
for x in args for t in source for pred in coSig repeat
if firstTime then firstTime := false
else
@@ -1170,7 +1170,7 @@ operationIsNiladicConstructor op ==
++ Like operationIsNiladicConstructor() except that we just want
++ to know whether `op' is a constructor, arity is unimportant.
operationIsConstructor op ==
- ident? op => getDualSignatureFromDB op
+ ident? op => getDualSignature op
nil
--------------> NEW DEFINITION (see br-op2.boot.pamphlet)