Updating code for make and fry changes

[factor.git] / basis / logging / logging.factor

diff --git a/basis/logging/logging.factor b/basis/logging/logging.factor
index aa4e46fad19d69e390885ba2befeb289a974928b..ae9ef877dd74e79d9da34efa16ead6ea24dfaafd 100755 (executable)
--- a/basis/logging/logging.factor
+++ b/basis/logging/logging.factor
@@ -76,7 +76,7 @@ PRIVATE>
 : input# ( word -- n ) stack-effect in>> length ;\r
 \r
 : input-logging-quot ( quot word level -- quot' )\r
-    rot [ [ input# ] keep ] 2dip '[ , , , log-stack @ ] ;\r
+    rot [ [ input# ] keep ] 2dip '[ _ _ _ log-stack @ ] ;\r
 \r
 : add-input-logging ( word level -- )\r
     [ input-logging-quot ] (define-logging) ;\r
@@ -84,7 +84,7 @@ PRIVATE>
 : output# ( word -- n ) stack-effect out>> length ;\r
 \r
 : output-logging-quot ( quot word level -- quot' )\r
-    [ [ output# ] keep ] dip '[ @ , , , log-stack ] ;\r
+    [ [ output# ] keep ] dip '[ @ _ _ _ log-stack ] ;\r
 \r
 : add-output-logging ( word level -- )\r
     [ output-logging-quot ] (define-logging) ;\r
@@ -107,7 +107,7 @@ PRIVATE>
 \r
 : error-logging-quot ( quot word -- quot' )\r
     dup stack-effect stack-balancer\r
-    '[ , [ , log-error @ ] recover ] ;\r
+    '[ _ [ _ log-error @ ] recover ] ;\r
 \r
 : add-error-logging ( word level -- )\r
     [ [ input-logging-quot ] 2keep drop error-logging-quot ]\r
@@ -116,7 +116,7 @@ PRIVATE>
 : LOG:\r
     #! Syntax: name level\r
     CREATE-WORD dup scan-word\r
-    '[ 1array stack>message , , log-message ]\r
+    '[ 1array stack>message _ _ log-message ]\r
     (( message -- )) define-declared ; parsing\r
 \r
 USE: vocabs.loader\r