mirror of
https://github.com/dschmenk/PLASMA.git
synced 2026-04-20 16:16:34 +00:00
Add CR to PBC compiled words for SHOW
This commit is contained in:
Binary file not shown.
@@ -1179,6 +1179,7 @@ def newdict#0
|
||||
end
|
||||
def _plasma_(a)#0
|
||||
newdict
|
||||
^(_ffa_(vlist)) = showcr_flag
|
||||
*(_cfa_(vlist)) = a // PLASMA code address
|
||||
addhash(vlist)
|
||||
end
|
||||
@@ -1258,6 +1259,7 @@ def _colon_#0
|
||||
^(_ffa_(vlist)) = itc_flag | showcr_flag
|
||||
*(_cfa_(vlist)) = @_docolon_
|
||||
else // comp_pbc_flag
|
||||
^(_ffa_(vlist)) = showcr_flag
|
||||
_dictaddb_(JSR); _dictaddw_(vmvect)
|
||||
fin
|
||||
if state & trace_flag
|
||||
|
||||
Reference in New Issue
Block a user