X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=scheme.4th;h=ecbb91baef6bd015f722321c3fe684100e245c21;hb=f4e635c7b49321b5ba6f6a4609985aea4768d209;hp=644ee1914c221ab38227825a97f09599391140a6;hpb=c5d17be5654a1b22bc4d8364da5136fc3669aae6;p=scheme.forth.jl.git

diff --git a/scheme.4th b/scheme.4th
index 644ee19..ecbb91b 100644
--- a/scheme.4th
+++ b/scheme.4th
@@ -301,7 +301,7 @@ global-env setobj
             abort
 ;
 
-: ensure-arg-type ( arg type -- )
+: ensure-arg-type ( arg type -- arg )
     istype? false = if
         arg-type-error
     then