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.
|
! Copyright (C) 2009 Jose Antonio Ortega Ruiz.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! 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
|
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 ;
|
} cleave 4array lexer-error prefix fuel-pprint ;
|
||||||
|
|
||||||
M: source-file-error 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 ;
|
fuel-pprint ;
|
||||||
|
|
||||||
M: source-file fuel-pprint path>> fuel-pprint ;
|
M: source-file fuel-pprint path>> fuel-pprint ;
|
||||||
|
|
Loading…
Reference in New Issue