$SYSCOMMANDS is already initialized by
DEFPARAMETER($SYSCOMMANDS, [first x for x in $systemCommands])
- Qian
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index eca9f345..e5ad7164 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -75,14 +75,6 @@ DEFPARAMETER($displayOptions, '( _
--% Top level system command
-initializeSystemCommands() ==
- l := $systemCommands
- $SYSCOMMANDS := NIL
- while l repeat
- $SYSCOMMANDS := CONS(CAAR l, $SYSCOMMANDS)
- l := rest l
- $SYSCOMMANDS := NREVERSE $SYSCOMMANDS
-
systemCommand [[op,:argl],:options] ==
$options: local:= options
$e:local := $CategoryFrame
@@ -2994,13 +2986,13 @@ splitIntoOptionBlocks str ==
blockStart := 0
parenCount := 0
for i in 0..#str-1 repeat
- STRING str.i = '"_"" =>
+ str.i = char '"_"" =>
inString := not inString
- if STRING str.i = '"(" and not inString
+ if str.i = char '"(" and not inString
then parenCount := parenCount + 1
- if STRING str.i = '")" and not inString
+ if str.i = char '")" and not inString
then parenCount := parenCount - 1
- STRING str.i = '")" and not inString and parenCount = -1 =>
+ str.i = char '")" and not inString and parenCount = -1 =>
block := stripSpaces SUBSEQ(str, blockStart, i)
blockList := [block, :blockList]
blockStart := i+1
@@ -3058,7 +3050,7 @@ ltrace l == trace l
--------------------> NEW DEFINITION (see intint.lisp)
stripSpaces str ==
- STRING_-TRIM([char '" "], str)
+ STRING_-TRIM('" ", str)
npProcessSynonym(str) ==
if str = '"" then printSynonyms(NIL)
--
You received this message because you are subscribed to the Google Groups "FriCAS -
computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To view this discussion on the web visit
https://groups.google.com/d/msgid/fricas-devel/11294272-8816-4ce7-9832-903a870f9fb2%40gmail.com.
