diff options
Diffstat (limited to 'src/interp/setvars.boot')
-rw-r--r-- | src/interp/setvars.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot index a35a2f30..cbe6872a 100644 --- a/src/interp/setvars.boot +++ b/src/interp/setvars.boot @@ -190,7 +190,7 @@ useFastLinks flag == set1(l,setTree) == null l => displaySetVariableSettings(setTree,"") $setOptionNames : local := [x.0 for x in setTree] - arg := selectOption(DOWNCASE CAR l,$setOptionNames,'optionError) + arg := selectOption(DOWNCASE first l,$setOptionNames,'optionError) setData := [arg,:LASSOC(arg,setTree)] -- check is the user is authorized for the set variable @@ -664,8 +664,8 @@ setFortTmpDir arg == validateOutputDirectory x == - AND(PATHNAME_-DIRECTORY(PROBE_-FILE(CAR(x))), NOT PATHNAME_-NAME (PROBE_-FILE(CAR(x)))) => - CAR(x) + AND(PATHNAME_-DIRECTORY(PROBE_-FILE(first(x))), NOT PATHNAME_-NAME (PROBE_-FILE(first(x)))) => + first(x) NIL |