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

Implement VALUE natively

Browse source
This commit is contained in:
Remko Tronçon 2019-11-08 15:19:33 +01:00
parent 2446f28f91
commit 7202762f0f
1 changed files with 2 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/waforth.wat
View file

@ -1553,7 +1553,8 @@
;; 6.2.2405 ;; 6.2.2405
(data (i32.const #x21874) "\u0064\u0018\u0002\u0000" "\u0005" "VALUE00" "\u004c\u0000\u0000\u0000") ;; !constantIndex (data (i32.const #x21874) "\u0064\u0018\u0002\u0000" "\u0005" "VALUE00" "\u004c\u0000\u0000\u0000") ;; !constantIndex
;; 15.6.1.0220
;; : .S DSP@ S0 BEGIN 2DUP > WHILE DUP @ U. SPACE 4 + REPEAT 2DROP ;
;; High-level words ;; High-level words
(!prelude #<<EOF (!prelude #<<EOF
@ -1566,19 +1567,6 @@
EMIT EMIT
; ;
\ 15.6.1.0220
: .S
DSP@ S0
BEGIN
2DUP >
WHILE
DUP @ U.
SPACE
4 +
REPEAT
2DROP
;
\ 6.2.0210 \ 6.2.0210
: .R : .R
SWAP SWAP