Commit 12b70e82 authored by bp's avatar bp

Fixed construction of history file on Windows

git-svn-id: https://forth-ev.de/repos/bigforth@1743 3b8d8251-53f3-0310-8f3b-fd1cb8370982
parent 712f733f
......@@ -494,7 +494,7 @@ how: 6 colors focuscol ! 1 colors defocuscol !
!tile drop cols @ >r x @ y @
at? drop 0 swap texth @ * p+
2dup textwh 2@ r> * swap 6 colors @ dpy box
pos @ at? nip - 'line 2swap 6 colors @ 8 >> .text 2drop ;
pos @ at? nip - 'line 2swap 6 colors @ 8 >> .text 2drop ;
: linetype ( addr u -- )
tuck pos @ 'line drop swap 2dup -trailing >r drop move
>r pos @ r@ + cols @ rows @ * >=
......
......@@ -161,7 +161,7 @@ previous [THEN]
[defined] win32 [IF]
ficon: minos-win icons/minos1+.icn"
: win-init ( -- ) clear-resources
: win-init ( -- ) !time clear-resources
xresource new xresource with
IDI_APPLICATION 0 LoadIcon register
\ minos-win icon-pixmap with
......
......@@ -160,7 +160,7 @@ also dos
: history-file ( -- addr u )
s" BIGFORTHHIST" env$ 2dup d0= IF 2drop
up@ udp @ + >r
s" TEMP" env$ ?dup 0= IF s" C:" THEN r@ place
s" TEMP" env$ ?dup 0= IF drop s" C:" THEN r@ place
s" \bigforth.his" r@ +place
r> count
THEN ;
......
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