From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 1 Oct 1992 18:51:28 +0000 (+0000)
Subject: Add missing call to long_to_integer.
X-Git-Tag: 20090517-FFI~8865
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=286b62504590ea20265ed40fc5f3dfaa6af7357d;p=mit-scheme.git

Add missing call to long_to_integer.
---

diff --git a/v7/src/microcode/prdosenv.c b/v7/src/microcode/prdosenv.c
index 1a35a827a..7c7ff5cf8 100644
--- a/v7/src/microcode/prdosenv.c
+++ b/v7/src/microcode/prdosenv.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: prdosenv.c,v 1.5 1992/10/01 18:18:05 jinx Exp $
+$Id: prdosenv.c,v 1.6 1992/10/01 18:51:28 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -146,7 +146,7 @@ Wait until the command terminates, returning its exit status as an integer.")
 			    (arg_io_spec (4))));
   if (result < -1)
     error_external_return ();
-  PRIMITIVE_RETURN ((long) result);
+  PRIMITIVE_RETURN (long_to_integer ((long) result));
 }
 
 DEFINE_PRIMITIVE ("DOS-SET-KEYBOARD-MODIFIER-MASK!", Prim_dos_set_kbd_mod_mask,