Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Defer form to allow other terminals to properly inject content

  • Loading branch information...
commit 69659c8f3968282a660e5f9b32671950539fb08b 1 parent 67ad88b
pazsan authored
Showing with 3 additions and 1 deletion.
  1. +2 −0  kernel/io.fs
  2. +1 −1  prim
View
2  kernel/io.fs
@@ -83,6 +83,8 @@ Defer key? ( -- flag ) \ facility key-question
[IFDEF] (key?) ' (key?) IS key? [THEN]
+[IFDEF] (form) Defer form ' (form) IS form [THEN]
+
all-words
: (.") "lit count type ;
View
2  prim
@@ -1700,7 +1700,7 @@ wfileid = (Cell)stderr;
\+os
-form ( -- urows ucols ) gforth
+(form) ( -- urows ucols ) gforth paren_form
""The number of lines and columns in the terminal. These numbers may
change with the window size. Note that it depends on the OS whether
this reflects the actual size and changes with the window size
Please sign in to comment.
Something went wrong with that request. Please try again.