fuel.pprint: fix a thing that broke in fuel due to the source-file-error
tuple changedb4
parent
37fbe62f0d
commit
8ef926989b
|
@ -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
|
||||
|
|
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue