fuel.pprint: fix a thing that broke in fuel due to the source-file-error

tuple change

diff --git a/extra/fuel/pprint/pprint-tests.factor b/extra/fuel/pprint/pprint-tests.factor
index a9868eacbe085ce4df91646e35382cf8c7b6de5d..3ac268ac2290fa6abcfc396b45ab5b81360d7aa7 100644 (file)
--- a/extra/fuel/pprint/pprint-tests.factor
+++ b/extra/fuel/pprint/pprint-tests.factor
@@ -1,4 +1,8 @@
 ! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: tools.test fuel.pprint ;
+USING: compiler.errors fuel.pprint io.streams.string tools.test ;
 IN: fuel.pprint.tests
+
+{ "(source-file-error nil \"hi\")" } [
+    [ "hi" "there" <compiler-error> fuel-pprint ] with-string-writer
+] unit-test

diff --git a/extra/fuel/pprint/pprint.factor b/extra/fuel/pprint/pprint.factor
index 36f419b748be82664670596456614079ffbe6d5e..a9bce92311d84e0cc13a34324384856935c96180 100644 (file)
--- a/extra/fuel/pprint/pprint.factor
+++ b/extra/fuel/pprint/pprint.factor
@@ -57,7 +57,7 @@ M: lexer-error fuel-pprint
     } cleave 4array lexer-error prefix fuel-pprint ;
 
 M: source-file-error fuel-pprint
-    [ file>> ] [ error>> ] bi 2array source-file-error prefix
+    [ path>> ] [ error>> ] bi 2array source-file-error prefix
     fuel-pprint ;
 
 M: source-file fuel-pprint path>> fuel-pprint ;