Paste: issue #457 replicated

linux-x64


IN: scratchpad [ ] [ :c ] unit-test
Unit Test: { [ ] [ :c ] }
(U) Quotation: [ c-to-factor -> ]
    Word: c-to-factor
(U) Quotation: [ [ catchstack* push ] dip call -> catchstack* pop* ]
(O) Word: command-line-startup
(O) Word: listener
(O) Word: (listener)
(U) Quotation: [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call datastack ] dip -> swap [ set-datastack ] dip
    ]
(U) Quotation: [ call -> datastack ]
(O) Word: test-vocabs
(O) Word: test-vocab
(O) Word: run-test-file
(U) Quotation: [
        2 load-locals -1 get-local <experiment> load-local
        0 get-local experiment. -2 get-local execute
        -> 0 get-local -1 get-local [
            2 load-locals
            file get -1 get-local 0 get-local ~quotation~ curry
            curry ~quotation~ 2 drop-locals if
        ] curry curry [ drop ] 3 drop-locals if
    ]
    Word: experiment
(O) Word: (must-fail-with)
(U) Quotation: [
        [ ~quotation~ dip swap ~quotation~ dip ] dip swap
        [ call datastack ] dip -> swap [ set-datastack ] dip
    ]
(U) Quotation: [ call -> datastack ]
(U) Quotation: [
        B{
            112 114 105 109 105 116 105 118 101 95 97 108 105 101
            110 95 117 110 115 105 103 110 101 100 95 49 0
        } do-primitive ->
    ]
    Word: alien-unsigned-1
(U) Quotation: [
        OBJ-CURRENT-THREAD special-object error-thread set-global
        continuation -> error-continuation set-global
        [ original-error set-global ] [ rethrow ] bi
    ]