Kaynağa Gözat

Fix broken LIT"

master
Virgil Dupras 3 yıl önce
ebeveyn
işleme
ebf47a2ab5
2 değiştirilmiş dosya ile 1 ekleme ve 1 silme
  1. +1
    -1
      blk/382
  2. BIN
      cvm/forth.bin

+ 1
- 1
blk/382 Dosyayı Görüntüle

@@ -3,7 +3,7 @@
C< DUP 34 ( ASCII " ) = IF DROP EXIT THEN C,
AGAIN ;
: LIT"
COMPILE (s) H@ 0 C, ,"
0x2b ( (s) ) , H@ 0 C, ,"
DUP H@ -^ 1- ( a len ) SWAP C!
; IMMEDIATE
: ." [COMPILE] LIT" COMPILE (print) ; IMMEDIATE


BIN
cvm/forth.bin Dosyayı Görüntüle


Yükleniyor…
İptal
Kaydet