diff options
Diffstat (limited to 'qemu/roms/openbios/forth/system/ciface.fs')
| -rw-r--r-- | qemu/roms/openbios/forth/system/ciface.fs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/qemu/roms/openbios/forth/system/ciface.fs b/qemu/roms/openbios/forth/system/ciface.fs index fd6c54efd..85a607627 100644 --- a/qemu/roms/openbios/forth/system/ciface.fs +++ b/qemu/roms/openbios/forth/system/ciface.fs @@ -326,6 +326,14 @@ external : exit ( -- ) ." EXIT" + + \ Execute (exit) hook if one exists + s" (exit)" $find if + execute + else + 2drop + then + outer-interpreter ; |