diff options
Diffstat (limited to 'module/language/tree-il/compile-bytecode.scm')
-rw-r--r-- | module/language/tree-il/compile-bytecode.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/tree-il/compile-bytecode.scm b/module/language/tree-il/compile-bytecode.scm index 8418f089a..a581b7f6c 100644 --- a/module/language/tree-il/compile-bytecode.scm +++ b/module/language/tree-il/compile-bytecode.scm @@ -1124,7 +1124,7 @@ in the frame with for the lambda-case clause @var{clause}." (0 (emit-load-static-procedure asm dst label)) (nfree - ;; Stage closure in 0 to avoid stompling captured free + ;; Stage closure in 0 to avoid stomping captured free ;; vars. (emit-allocate-closure asm 0 nfree label 1) (init-free-vars 0 free-vars env 1 2) @@ -1148,7 +1148,7 @@ in the frame with for the lambda-case clause @var{clause}." frame-size))) (($ <primcall> src (? variadic-constructor? name) args) - ;; Stage result in 0 to avoid stompling args. + ;; Stage result in 0 to avoid stomping args. (let ((args (for-args args env))) (maybe-emit-source src) (match name |