Handle false and empty list as pathname directories.

diff --git a/v7/src/compiler/machines/C/cout.scm b/v7/src/compiler/machines/C/cout.scm
index bceb296de25ce932b8dc29cd03cfbba9e6240ecb..e4cfac10101244637ede825b27b7ea0348130496 100644 (file)
--- a/v7/src/compiler/machines/C/cout.scm
+++ b/v7/src/compiler/machines/C/cout.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: cout.scm,v 1.2 1993/06/09 09:28:43 jawilson Exp $
+$Id: cout.scm,v 1.3 1993/06/10 00:11:59 jawilson Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -108,7 +108,7 @@ MIT in each case. |#
             (string-append default suffix time-stamp))
            (else
             (let ((dir (pathname-directory path)))
-              (string-append (if (null? dir)
+              (string-append (if (or (not dir) (null? dir))
                                  default
                                  (car (last-pair dir)))
                              "_"