~ chicken-core (chicken-5) 6ff3957f988e530861d8ca77a1fa5b310b4b9e32

commit 6ff3957f988e530861d8ca77a1fa5b310b4b9e32
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Dec 2 08:31:31 2010 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Dec 2 08:31:31 2010 -0500

    chicken-script feature-id, old script is deprecated; removed silly meroon-specific describe code

diff --git a/csi.scm b/csi.scm
index 88cdcc4a..f09d6d07 100644
--- a/csi.scm
+++ b/csi.scm
@@ -680,8 +680,6 @@ EOF
 		      (newline out))
 		    (loop (cddr props)) ) ) )
 	      (##sys#slot x 1) ) ]
-	    [(and (##sys#structure? x 'meroon-instance) (provided? 'meroon)) ; XXX put this into meroon egg (really!)
-	     (unveil x out) ]
 	    [(##sys#generic-structure? x)
 	     (let ([st (##sys#slot x 0)])
 	       (cond ((##sys#hash-table-ref describer-table st) => (cut <> x out))
@@ -955,7 +953,8 @@ EOF
 	     (##sys#error "missing or invalid script argument"))
 	   (program-name (cadr script))
 	   (command-line-arguments (cddr script))
-	   (register-feature! 'script)
+	   (register-feature! 'script)	; DEPRECATED
+	   (register-feature! 'chicken-script)
 	   (set-cdr! (cdr script) '()) 
 	   (when ##sys#windows-platform
 	     (and-let* ((sname (lookup-script-file (cadr script))))