diff options
Diffstat (limited to 'language/dynamic/files.e')
| -rw-r--r-- | language/dynamic/files.e | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/language/dynamic/files.e b/language/dynamic/files.e index 2a8c7c3..71fb355 100644 --- a/language/dynamic/files.e +++ b/language/dynamic/files.e @@ -152,6 +152,10 @@ main-input-buffer dup push-input-buffer swap attach-input-buffer-to-file-descriptor + ~ We don't know what the code we're including will do to the stack, so we + ~ have to discard the last of our information before running it. + drop + { peek -1 != } { interpret } while main-input-buffer buffer-file-descriptor @ sys-close drop |