function getFrag(s)
chars = collect(s)
- slashIdx = findlast(chars, '\\')
+ slashIdx = findlast(isequal('\\'), chars)
- if slashIdx > 0
+ if slashIdx != nothing
return join(chars[slashIdx:length(chars)])
else
return nothing
getString(addr, len), "\n",
"return NEXT\n",
"end")
- func = eval(parse(exprString))
+ func = eval(Meta.parse(exprString))
pushPS(defPrim(func))
return NEXT
SETLIBCWD_CFA = defPrimWord("SETLIBCWD", () -> begin
global oldCWD = pwd()
if !isfile("lib.4th") # Exception for debugging.
- cd(Pkg.dir("forth","src"))
+ cd(@__DIR__) # Macro expands to CWD at compile time
end
return NEXT
end)