[uim-commit] r1075 - branches/r5rs/sigscheme

[kzk at freedesktop.org]

Author: kzk
Date: 2005-07-29 21:57:14 -0700 (Fri, 29 Jul 2005)
New Revision: 1075

Modified:
   branches/r5rs/sigscheme/debug.c
   branches/r5rs/sigscheme/sigscheme.h
Log:
Oops, forgot to commit..

please look at r1074's log.



Modified: branches/r5rs/sigscheme/debug.c
===================================================================
--- branches/r5rs/sigscheme/debug.c	2005-07-30 04:54:42 UTC (rev 1074)
+++ branches/r5rs/sigscheme/debug.c	2005-07-30 04:57:14 UTC (rev 1075)
@@ -65,8 +65,8 @@
 =======================================*/
 void SigScm_Display(ScmObj obj)
 {
-    print_ScmObj_internal(stdout, obj);
-    fprintf(stdout, "\n");
+    print_ScmObj_internal(SCM_PORTINFO_FILE(current_output_port), obj);
+    fprintf(SCM_PORTINFO_FILE(current_output_port), "\n");
 }
 
 void SigScm_DisplayToPort(ScmObj port, ScmObj obj)
@@ -104,13 +104,15 @@
 	fprintf(f, "[ FreeCell ] \n");
     } else if (SCM_PORTP(obj)) {
 	fprintf(f, "#<");
+	/* input or output */
 	if (SCM_PORT_PORTDIRECTION(obj) == PORT_INPUT)
 	    fprintf(f, "i");
 	else
 	    fprintf(f, "o");
 	fprintf(f, "port ");
+	/* file or string */
 	if (SCM_PORT_PORTTYPE(obj) == PORT_FILE) {
-	    fprintf(f, "file");
+	    fprintf(f, "file %s", SCM_PORTINFO_FILENAME(obj));
 	} else if (SCM_PORT_PORTTYPE(obj) == PORT_STRING) {
 	    fprintf(f, "string");
 	}

Modified: branches/r5rs/sigscheme/sigscheme.h
===================================================================
--- branches/r5rs/sigscheme/sigscheme.h	2005-07-30 04:54:42 UTC (rev 1074)
+++ branches/r5rs/sigscheme/sigscheme.h	2005-07-30 04:57:14 UTC (rev 1075)
@@ -128,7 +128,7 @@
 ScmObj Scm_NewFunc(enum ScmFuncArgNum num_arg, ScmFuncType func);
 ScmObj Scm_NewClosure(ScmObj exp, ScmObj env);
 ScmObj Scm_NewVector(ScmObj *vec, int len);
-ScmObj Scm_NewFilePort(FILE *file, enum ScmPortDirection pdireciton);
+ScmObj Scm_NewFilePort(FILE *file, const char *filename, enum ScmPortDirection pdireciton);
 ScmObj Scm_NewStringPort(const char *str);  /* input only? */
 ScmObj Scm_NewContinuation(void);
 ScmObj Scm_NewCPointer(void *data);