diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt index 2f34a4e02e..649eb14643 100644 --- a/TODO.FACTOR.txt +++ b/TODO.FACTOR.txt @@ -35,6 +35,8 @@ - overhaul models, set-model* is crap - fix windows gcc issue - robustify stepper -- see if step back past a throw works +- httpd crash +- fep when closing window + ui: diff --git a/library/compiler/load.factor b/library/compiler/load.factor index 57392a0e0c..9b00998e50 100644 --- a/library/compiler/load.factor +++ b/library/compiler/load.factor @@ -64,4 +64,5 @@ PROVIDE: library/compiler "test/optimizer.factor" "test/alien.factor" "test/callbacks.factor" + "test/stack-trace.factor" } } ; diff --git a/library/compiler/test/stack-trace.factor b/library/compiler/test/stack-trace.factor new file mode 100644 index 0000000000..0b797f15d6 --- /dev/null +++ b/library/compiler/test/stack-trace.factor @@ -0,0 +1,12 @@ +IN: temporary +USING: errors compiler test namespaces sequences ; + +: foo 3 throw 7 ; +: bar foo 4 ; +: baz bar 5 ; +\ baz compile +[ 3 ] [ [ baz ] catch ] unit-test +[ { foo bar baz } ] [ + error-stack-trace get symbolic-stack-trace + [ second ] map [ ] subset +] unit-test