Commit c879a3b4 authored by Erick's avatar Erick

Changed the way cpointers are printed

parent 7a780b7f
...@@ -18,7 +18,7 @@ ...@@ -18,7 +18,7 @@
;; USA. ;; USA.
;; Author: Erick Gallesio [eg@unice.fr] ;; Author: Erick Gallesio [eg@unice.fr]
;; Creation date: 26-Nov-2000 18:19 (eg) ;; Creation date: 26-Nov-2000 18:19 (eg)
;; Last file update: 27-Aug-2008 13:44 (eg) ;; Last file update: 26-Sep-2008 08:10 (eg)
;; ;;
;; ====================================================================== ;; ======================================================================
...@@ -536,5 +536,18 @@ you need to insert the following expression]) ...@@ -536,5 +536,18 @@ you need to insert the following expression])
(fontified-code [(require "srfi-96")]) (fontified-code [(require "srfi-96")])
(p [in your code or uses the ,(code "cond-expand") special form.])) (p [in your code or uses the ,(code "cond-expand") special form.]))
;; ----------------------------------------------------------------------
;; SRFI 98 -- SAn interface to access environment variables
;; ----------------------------------------------------------------------
(index "get-environment-variable")
(index "get-environment-variables")
(srfi-section 96
(p [,(quick-link-srfi 96) is fully supported and is completely
described in this document (procedures
,(code "get-environment-variable"), and
,(code "get-environment-variables")). ]))
;; End of chapter ;; End of chapter
) )
This diff is collapsed.
This diff is collapsed.
/* /*
* p r i n t . c -- writing stuff * p r i n t . c -- writing stuff
* *
* Copyright 1993-2007 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr> * Copyright 1993-2008 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
* *
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
...@@ -21,7 +21,7 @@ ...@@ -21,7 +21,7 @@
* *
* Author: Erick Gallesio [eg@unice.fr] * Author: Erick Gallesio [eg@unice.fr]
* Creation date: ??-Oct-1993 ??:?? * Creation date: ??-Oct-1993 ??:??
* Last file update: 9-Dec-2007 18:47 (eg) * Last file update: 20-Dec-2008 15:55 (eg)
* *
*/ */
#include <ctype.h> #include <ctype.h>
...@@ -200,11 +200,13 @@ void STk_print(SCM exp, SCM port, int mode) ...@@ -200,11 +200,13 @@ void STk_print(SCM exp, SCM port, int mode)
return; return;
case tc_pointer: case tc_pointer:
if (CPOINTER_TYPE(exp) == STk_void) { if (CPOINTER_TYPE(exp) == STk_void) {
sprintf(buffer, "#[C-pointer %lx]", (unsigned long) CPOINTER_VALUE(exp)); sprintf(buffer, "#[C-pointer %lx @ %lx]",
(unsigned long) CPOINTER_VALUE(exp), (unsigned long) exp);
} else { } else {
STk_puts("#[", port); STk_puts("#[", port);
STk_print(CPOINTER_TYPE(exp), port, mode); STk_print(CPOINTER_TYPE(exp), port, mode);
sprintf(buffer, "-pointer %lx]", (unsigned long) CPOINTER_VALUE(exp)); sprintf(buffer, "-pointer %lx @ %lx]", (unsigned long) CPOINTER_VALUE(exp),
(unsigned long) exp);
} }
STk_puts(buffer, port); STk_puts(buffer, port);
return; return;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment