-TOR = defPrim(">R", :(pushRS(popPS())))
-FROMR = defPrim("R>", :(pushPS(popRS())))
-RSPFETCH = defPrim("RSP@", :(pushPS(RSP)))
-RSPSTORE = defPrim("RSP!", :(RSP = popPS()))
-RDROP = defPrim("RDROP", :(popRS()))
+TOR = defPrim(">R", quote
+ pushRS(popPS())
+ jmp = NEXT
+end)
+
+FROMR = defPrim("R>", quote
+ pushPS(popRS())
+end)
+
+RSPFETCH = defPrim("RSP@", quote
+ pushPS(RSP)
+ jmp = NEXT
+end)
+
+RSPSTORE = defPrim("RSP!", quote
+ RSP = popPS()
+ jmp = NEXT
+end)
+
+RDROP = defPrim("RDROP", quote
+ popRS()
+ jmp = NEXT
+end)