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

tuple change
db4
Björn Lindqvist 2015-08-06 01:09:42 +02:00 committed by John Benediktsson
parent 37fbe62f0d
commit 8ef926989b
2 changed files with 6 additions and 2 deletions

View File

@ -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

View File

@ -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 ;