summaryrefslogtreecommitdiff
path: root/module/language/tree-il/compile-bytecode.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/language/tree-il/compile-bytecode.scm')
-rw-r--r--module/language/tree-il/compile-bytecode.scm4
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