sforman
/
Thun
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Better definition for enstacken.

This commit is contained in:
sforman 2023-11-12 09:59:02 -08:00
parent f7c7dc2052
commit bca39860f9
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
implementations/C/Makefile
View File

@ -7,7 +7,7 @@ CFLAGS = -ansi -Wall -Wextra -Werror -pedantic -Wstrict-overflow -fno-strict-ali
CFLAGS += -I/usr/local/include CFLAGS += -I/usr/local/include
# TODO: move these to KEYWORDS.txt. # TODO: move these to KEYWORDS.in.
GPERF_OPTS = --readonly-tables --enum --includes --hash-function-name=keyword_hash GPERF_OPTS = --readonly-tables --enum --includes --hash-function-name=keyword_hash
#--global-table #--global-table

7
implementations/defs.txt
View File

@ -24,7 +24,7 @@ binary unary popd
ccccons ccons ccons ccccons ccons ccons
ccons cons cons ccons cons cons
choice [pop] [popd] branch choice [pop] [popd] branch
clear [] swaack pop clear enstacken pop
cleave fork popdd cleave fork popdd
clop cleave popdd clop cleave popdd
cmp [[>] swap] dipd [ifte] ccons [=] swons ifte cmp [[>] swap] dipd [ifte] ccons [=] swons ifte
@ -42,7 +42,7 @@ dupdd [dup] dipd
dupd [dup] dip dupd [dup] dip
dupdipd dup dipd dupdipd dup dipd
dupdip dupd dip dupdip dupd dip
enstacken stack [clear] dip enstacken [] swaack
first uncons pop first uncons pop
first_two uncons first first_two uncons first
flatten <{} [concat] step flatten <{} [concat] step
@ -106,6 +106,7 @@ spiral_next [[[abs] ii <=] [[<>] [pop !-] or] and] [[!-] [[++]] [[--]] ifte dip]
split_at [drop] [take] clop split_at [drop] [take] clop
split_list [take reverse] [drop] clop split_list [take reverse] [drop] clop
sqr dup mul sqr dup mul
stack enstacken dup cons swaack pop
stackd [stack] dip stackd [stack] dip
step_zero 0 roll> step step_zero 0 roll> step
stuncons stack uncons stuncons stack uncons
@ -123,7 +124,7 @@ unary nullary popd
uncons [first] dupdip rest uncons [first] dupdip rest
unit [] cons unit [] cons
unquoted [i] dip unquoted [i] dip
unstack [[] swaack] dip swoncat swaack pop unstack [enstacken] dip swoncat swaack pop
unswons uncons swap unswons uncons swap
while swap nulco dupdipd concat loop while swap nulco dupdipd concat loop
x dup i x dup i