diff options
Diffstat (limited to 'libguile/kw.c')
-rw-r--r-- | libguile/kw.c | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/libguile/kw.c b/libguile/kw.c index e60cba90f..ce3c6dc05 100644 --- a/libguile/kw.c +++ b/libguile/kw.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996, 1997 Free Software Foundation, Inc. * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by @@ -43,7 +43,6 @@ #include <stdio.h> #include "_scm.h" #include "genio.h" -#include "mbstrings.h" #include "smob.h" #include "kw.h" @@ -68,12 +67,8 @@ prin_kw (exp, port, pstate) SCM port; scm_print_state *pstate; { - scm_gen_puts (scm_regular_string, "#:", port); - scm_gen_puts((SCM_MB_STRINGP(SCM_CDR (exp)) - ? scm_mb_string - : scm_regular_string), - 1 + SCM_CHARS (SCM_CDR (exp)), - port); + scm_puts ("#:", port); + scm_puts(1 + SCM_CHARS (SCM_CDR (exp)), port); return 1; } |