Fixing everything for mandatory stack effects

[factor.git] / extra / logging / logging.factor

diff --git a/extra/logging/logging.factor b/extra/logging/logging.factor
index df03bf320b7fbc4ccd9115dcbc820ec0487502b8..6fb7ebd6b13a54b6f2352436cb816dc292e3f037 100755 (executable)
--- a/extra/logging/logging.factor
+++ b/extra/logging/logging.factor
@@ -42,7 +42,7 @@ SYMBOL: log-service
 \r
 <PRIVATE\r
 \r
-: one-string?\r
+: one-string? ( obj -- ? )\r
     {\r
         [ dup array? ]\r
         [ dup length 1 = ]\r
@@ -77,7 +77,7 @@ PRIVATE>
         3drop\r
     ] if ; inline\r
 \r
-: input# stack-effect in>> length ;\r
+: input# ( word -- n ) stack-effect in>> length ;\r
 \r
 : input-logging-quot ( quot word level -- quot' )\r
     rot [ [ input# ] keep ] 2dip '[ , , , log-stack @ ] ;\r
@@ -85,7 +85,7 @@ PRIVATE>
 : add-input-logging ( word level -- )\r
     [ input-logging-quot ] (define-logging) ;\r
 \r
-: output# stack-effect out>> length ;\r
+: output# ( word -- n ) stack-effect out>> length ;\r
 \r
 : output-logging-quot ( quot word level -- quot' )\r
     [ [ output# ] keep ] dip '[ @ , , , log-stack ] ;\r
@@ -121,4 +121,4 @@ PRIVATE>
     #! Syntax: name level\r
     CREATE-WORD dup scan-word\r
     '[ 1array stack>message , , log-message ]\r
-    define ; parsing\r
+    (( message -- )) define-declared ; parsing\r