]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/prettyprint/backend/backend.factor
continuations[-docs]: add the finally word
[factor.git] / basis / prettyprint / backend / backend.factor
index 0fd99e7e0b39c586a2899f7755cc478d9fb22463..e2f58de6e25387c8d1bf867c5eebac391edc4f41 100644 (file)
@@ -266,7 +266,7 @@ M: byte-vector pprint* pprint-object ;
 
 : with-extra-nesting-level ( quot -- )
     nesting-limit [ dup [ 1 + ] [ f ] if* ] change
-    [ nesting-limit set ] curry [ ] cleanup ; inline
+    [ nesting-limit set ] curry finally ; inline
 
 M: hashtable pprint*
     [ pprint-object ] with-extra-nesting-level ;