diff --git a/c/fasl.c b/c/fasl.c index df0061d488..a9f0ef4d94 100644 --- a/c/fasl.c +++ b/c/fasl.c @@ -489,6 +489,8 @@ static ptr fasl_entry(ptr tc, IFASLCODE situation, unbufFaslFile uf) { case fasl_type_revisit: case fasl_type_visit_revisit: break; + case fasl_type_terminator: + return Seof_object; default: S_error2("", "malformed fasl-object header (missing situation, got ~s) found in ~a", FIX(ty), uf->path); return (ptr)0; diff --git a/s/cmacros.ss b/s/cmacros.ss index 6f16b54823..f3ce562f41 100644 --- a/s/cmacros.ss +++ b/s/cmacros.ss @@ -462,6 +462,8 @@ (define-constant fasl-type-phantom 44) (define-constant fasl-type-uninterned-symbol 45) +(define-constant fasl-type-terminator 127) + (define-constant fasl-fld-ptr 0) (define-constant fasl-fld-u8 1) (define-constant fasl-fld-i16 2)