diff options
Diffstat (limited to 'src/interp/br-saturn.boot')
| -rw-r--r-- | src/interp/br-saturn.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot index a67261bd..c482c72d 100644 --- a/src/interp/br-saturn.boot +++ b/src/interp/br-saturn.boot @@ -1648,15 +1648,15 @@ bcConform1 form == main where satTypeDownLink(s, ["(|conPage| '|",s,'"|)"]) (head := QCAR form) = 'QUOTE => htSay('"'") - hd CADR form + hd second form head = 'SIGNATURE => - htSay(CADR form,'": ") - mapping CADDR form + htSay(second form,'": ") + mapping third form head = 'Mapping and rest form => rest form => mapping rest form head = ":" => - hd CADR form + hd second form htSay '": " - hd CADDR form + hd third form QCDR form and dbEvalableConstructor? form => bcConstructor(form,head) hd head |