Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2025-01-29 08:34:33 +01:00
Code Issues Projects Releases Packages Wiki Activity

Remove unused code

Browse source
This commit is contained in:
Remko Tronçon 2019-03-11 15:57:32 +01:00
parent 775c714904
commit 166d82d899
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/waforth.wat
View file

@ -1279,12 +1279,6 @@
;; High-level words
(!prelude #<<EOF
: '\n' 10 ;
: 'A' [ CHAR A ] LITERAL ;
: '0' [ CHAR 0 ] LITERAL ;
: '(' [ CHAR ( ] LITERAL ;
: ')' [ CHAR ) ] LITERAL ;
\ 6.1.0950
: CONSTANT CREATE , DOES> @ ;
@ -1327,7 +1321,7 @@
: UWIDTH BASE @ / ?DUP IF RECURSE 1+ ELSE 1 THEN ;
\ 6.1.0990
: CR '\n' EMIT ;
: CR 10 EMIT ;
\ 6.1.2230
: SPACES BEGIN DUP 0> WHILE SPACE 1- REPEAT DROP ;