From b798150359b48aea2ecf982785af1e56a92b6a49 Mon Sep 17 00:00:00 2001 From: ketmar Date: Fri, 20 Oct 2023 09:45:23 +0000 Subject: [PATCH] UrForth: fixed some bugs in conditionals; added some words to stdlib FossilOrigin-Name: d1ffe3d00b60b3cf3e7130dfa54d729e8c6c4aa4961a4ffa88899842297cc9aa --- urflibs/init/bootstrap/90-cond-comp.f | 2 +- urflibs/init/stdlib.f | 8 ++++++++ 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/urflibs/init/bootstrap/90-cond-comp.f b/urflibs/init/bootstrap/90-cond-comp.f index 9ce1b68..f6a118a 100644 --- a/urflibs/init/bootstrap/90-cond-comp.f +++ b/urflibs/init/bootstrap/90-cond-comp.f @@ -117,7 +117,7 @@ TO COMPILER:TRACE-ENTER-EXIT PARSE-SKIP-BLANKS ;; quoted? TIB-PEEKCH DUP 34 = OVER 96 = OR SWAP 39 = OR IF - TIB-SKIPCH PARSE + TIB-GETCH PARSE " argument expected" ?NOT-ERROR TO CURR-WORD-LEN TO CURR-WORD-ADDR ELSE ;; parse up to blank or ")" diff --git a/urflibs/init/stdlib.f b/urflibs/init/stdlib.f index 5954758..7d0211f 100644 --- a/urflibs/init/stdlib.f +++ b/urflibs/init/stdlib.f @@ -312,3 +312,11 @@ PREVIOUS DEFINITIONS ; : WORDS ( -- ) CONTEXT @ VOCID-WORDS ; + + +: 2@ ( n -- lo hi ) DUP @ SWAP 4+ @ SWAP ; +: 2! ( lo hi n -- ) 2DUP ! NIP 4+ ! ; +: @EXECUTE ( addr ) @ EXECUTE-TAIL ; +: @EXECUTE-TAIL ( addr ) RDROP @ EXECUTE-TAIL ; +\ for MINIOOF and such +: (NOTIMPL) ( ) " not implemented" ERROR ; -- 2.11.4.GIT