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