From de4636ca39985b81b327871c119f9c70ea31eb1e Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Fri, 18 Sep 1992 16:35:32 +0000 Subject: [PATCH] Fix bug in last edit. --- v7/src/runtime/unxprm.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/unxprm.scm b/v7/src/runtime/unxprm.scm index b7281346e..f946eb18c 100644 --- a/v7/src/runtime/unxprm.scm +++ b/v7/src/runtime/unxprm.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: unxprm.scm,v 1.21 1992/09/18 16:30:34 jinx Exp $ +$Id: unxprm.scm,v 1.22 1992/09/18 16:35:32 jinx Exp $ Copyright (c) 1988-1992 Massachusetts Institute of Technology @@ -228,11 +228,11 @@ MIT in each case. |# (ucode-primitive file-time->string 1)) (define (unix/uid->string uid) - (or ((ucode-primitive uid->string 0) uid) + (or ((ucode-primitive uid->string 1) uid) (number->string uid 10))) (define (unix/gid->string gid) - (or ((ucode-primitive gid->string 0) gid) + (or ((ucode-primitive gid->string 1) gid) (number->string gid 10))) (define-integrable unix/system -- 2.25.1