Commit e612d588 authored by bp's avatar bp
Browse files

Better adjust.m

git-svn-id: https://forth-ev.de/repos/bigforth@1641 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 0e1aa486
......@@ -11,7 +11,7 @@ DOS also fileop also minos also
scratch over 5 min s" Path " compare 0=
IF drop .' Path "'
pathsep emit 2over type '" emit
ELSE scratch over 10 /string 7 min s" date-id" compare
ELSE scratch over dup 7 - /string s" date-id" compare
0= IF drop >r >r
.' s" ' 2over type .' " date-id'
r> r>
......
......@@ -22,7 +22,7 @@ adjust implements
dpy self window with xywh resize
xywh 2swap 2drop p2/ p-
repos endwith
argc @ 3 = IF 2 arg id# assign
argc @ 3 = 1 arg s" adjust.m" str= and IF 2 arg id# assign
id# get path# get s" xbigforth.ini" adjust-path-id
id# get path# get s" bigforth.ini" adjust-path-id
close bye
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment