0.pre7.106:

[sbcl.git] / src / runtime / gc.c

diff --git a/src/runtime/gc.c b/src/runtime/gc.c
index 47ed1b4..1be6a63 100644 (file)
--- a/src/runtime/gc.c
+++ b/src/runtime/gc.c
@@ -724,8 +724,8 @@ trans_code(struct code *code)
        fheaderp = (struct simple_fun *) native_pointer(fheaderl);
        gc_assert(widetag_of(fheaderp->header) == SIMPLE_FUN_HEADER_WIDETAG);
 
-       /* calcuate the new function pointer and the new */
-       /* function header */
+       /* Calculate the new function pointer and the new */
+       /* function header. */
        nfheaderl = fheaderl + displacement;
        nfheaderp = (struct simple_fun *) native_pointer(nfheaderl);