Fix broken LIT" · ebf47a2ab5 - collapseos - GitLain

Pārlūkot izejas kodu

Fix broken LIT"

master

Virgil Dupras pirms 3 gadiem

vecāks

8bb9230f49

revīzija

ebf47a2ab5

2 mainītis faili ar 1 papildinājumiem un 1 dzēšanām

Apvienotais skats

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