From fa3f23105ddcf07c5900de47f19af43d1db1b597 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:27 -0800
Subject: Import Upstream version 2c3

---
 dbrowse.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'dbrowse.scm')

diff --git a/dbrowse.scm b/dbrowse.scm
index aaa4635..8008c04 100644
--- a/dbrowse.scm
+++ b/dbrowse.scm
@@ -1,5 +1,5 @@
 ;;; "dbrowse.scm" relational-database-browser
-; Copyright 1996 Aubrey Jaffer
+; Copyright 1996, 1997 Aubrey Jaffer
 ;
 ;Permission to copy this software, to redistribute it, and to use it
 ;for any purpose is granted, subject to the following restrictions and
@@ -23,7 +23,7 @@
 (define browse:db #f)
 
 (define (browse . args)
-  (define table-name '*catalog-data*)
+  (define table-name #f)
   (cond ((null? args))
 	((procedure? (car args))
 	 (set! browse:db (car args))
@@ -37,7 +37,7 @@
 	 (catalog (and open-table (open-table '*catalog-data* #f))))
     (cond ((not catalog)
 	   (slib:error 'browse "could not open catalog"))
-	  ((eq? table-name '*catalog-data*)
+	  ((not table-name)
 	   (browse:display-dir '*catalog-data* catalog))
 	  (else
 	   (let ((table (open-table table-name #f)))
-- 
cgit v1.2.3