* pprint bug ?
@ 2023-10-16 21:52 Damien Mattei
2023-10-17 6:49 ` Damien Mattei
0 siblings, 1 reply; 5+ messages in thread
From: Damien Mattei @ 2023-10-16 21:52 UTC (permalink / raw)
To: kawa mailing list
hello,
i find something strange in pprint:
(import (kawa pprint))
(pprint '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
will output:
(include ../../Scheme-PLUS-for-Kawa/rec.scm)
which is no more an s-expr , it has wiped out the " " of the string,
and it is bugging my code
isn't it more normal to output:
(include "../../Scheme-PLUS-for-Kawa/rec.scm")
?
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: pprint bug ?
2023-10-16 21:52 pprint bug ? Damien Mattei
@ 2023-10-17 6:49 ` Damien Mattei
2023-10-17 7:11 ` Damien Mattei
0 siblings, 1 reply; 5+ messages in thread
From: Damien Mattei @ 2023-10-17 6:49 UTC (permalink / raw)
To: kawa mailing list
in fact guile and racket act the same way:
scheme@(guile-user)> (display '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
(include ../../Scheme-PLUS-for-Kawa/rec.scm)
Welcome to DrRacket, version 8.9 [cs].
Language: racket, with debugging; memory limit: 8192 MB.
(display '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
(include ../../Scheme-PLUS-for-Kawa/rec.scm)
:-(
i just want to output code with indentation ,if i do it with 'write'
,i loose indentation, if i do it with 'display' or 'pprint' i get
indentation but code is no more valid as string are without " ".
On Mon, Oct 16, 2023 at 11:52 PM Damien Mattei <damien.mattei@gmail.com> wrote:
>
> hello,
> i find something strange in pprint:
>
> (import (kawa pprint))
> (pprint '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
>
> will output:
> (include ../../Scheme-PLUS-for-Kawa/rec.scm)
>
> which is no more an s-expr , it has wiped out the " " of the string,
> and it is bugging my code
>
> isn't it more normal to output:
> (include "../../Scheme-PLUS-for-Kawa/rec.scm")
>
> ?
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: pprint bug ?
2023-10-17 6:49 ` Damien Mattei
@ 2023-10-17 7:11 ` Damien Mattei
2023-10-17 7:23 ` Damien Mattei
0 siblings, 1 reply; 5+ messages in thread
From: Damien Mattei @ 2023-10-17 7:11 UTC (permalink / raw)
To: kawa mailing list
i have this code:
(require 'srfi-1) ; any,every
(require 'srfi-69) ;; hash table
;; try include , use include-relative if problems
(include "../../Scheme-PLUS-for-Kawa/rec.scm") ; rec does not exist
in Kawa (no SRFI 31)
(include "../../Scheme-PLUS-for-Kawa/def.scm")
(include "../../Scheme-PLUS-for-Kawa/set-values-plus.scm")
(include "../../Scheme-PLUS-for-Kawa/for_next_step.scm")
(include "../../Scheme-PLUS-for-Kawa/declare.scm")
(include "../../Scheme-PLUS-for-Kawa/condx.scm")
(include "../../Scheme-PLUS-for-Kawa/block.scm")
(include "../../Scheme-PLUS-for-Kawa/not-equal.scm")
(include "../../Scheme-PLUS-for-Kawa/exponential.scm")
(include "../../Scheme-PLUS-for-Kawa/while-do-when-unless.scm")
(include "../../Scheme-PLUS-for-Kawa/repeat-until.scm")
(include "../../Scheme-PLUS-for-Kawa/modulo.scm")
(include "../../Scheme-PLUS-for-Kawa/bitwise.scm")
(include "../../Scheme-PLUS-for-Kawa/slice.scm")
(include "../../Scheme-PLUS-for-Kawa/scheme-infix.scm")
(include "../../Scheme-PLUS-for-Kawa/assignment.scm")
(include "../../Scheme-PLUS-for-Kawa/apply-square-brackets.scm")
(include "../../Scheme-PLUS-for-Kawa/array.scm")
;; (matrix #(1 2 3))
;; matrix@4612b856
(define-simple-class matrix ()
(v::vector)
((*init* (vParam::vector))
(set! v vParam))
)
;; (define M (create-matrix-vect-by-function (lambda (i j) (+ i j)) 2 3))
(define (create-matrix-vect-by-function fct lin col)
(matrix (create-vector-2d fct lin col)))
;; (matrix-v M)
;;#(#(0 1 2)
;; #(1 2 3))
(define (matrix-v M)
(slot-ref M 'v))
(define (matrix-vect-line-ref M lin)
{v <+ (matrix-v M)}
{v[lin]})
i run:
kawa curly-infix2prefix.scm ../AI_Deep_Learning/kawa/matrix+.scm
(require (quote srfi-1))
(require (quote srfi-69))
(include "../../Scheme-PLUS-for-Kawa/rec.scm")
(include "../../Scheme-PLUS-for-Kawa/def.scm")
(include "../../Scheme-PLUS-for-Kawa/set-values-plus.scm")
(include "../../Scheme-PLUS-for-Kawa/for_next_step.scm")
(include "../../Scheme-PLUS-for-Kawa/declare.scm")
(include "../../Scheme-PLUS-for-Kawa/condx.scm")
(include "../../Scheme-PLUS-for-Kawa/block.scm")
(include "../../Scheme-PLUS-for-Kawa/not-equal.scm")
(include "../../Scheme-PLUS-for-Kawa/exponential.scm")
(include "../../Scheme-PLUS-for-Kawa/while-do-when-unless.scm")
(include "../../Scheme-PLUS-for-Kawa/repeat-until.scm")
(include "../../Scheme-PLUS-for-Kawa/modulo.scm")
(include "../../Scheme-PLUS-for-Kawa/bitwise.scm")
(include "../../Scheme-PLUS-for-Kawa/slice.scm")
(include "../../Scheme-PLUS-for-Kawa/scheme-infix.scm")
(include "../../Scheme-PLUS-for-Kawa/assignment.scm")
(include "../../Scheme-PLUS-for-Kawa/apply-square-brackets.scm")
(include "../../Scheme-PLUS-for-Kawa/array.scm")
(define-simple-class matrix () (|v::vector|)
((*init* (|vParam::vector|)) (set! v vParam)))
(define (create-matrix-vect-by-function fct lin col)
(matrix (create-vector-2d fct lin col)))
(define (matrix-v M) (slot-ref M (quote v)))
(define (matrix-vect-line-ref M lin) (<+ v (matrix-v M)) (bracket-apply v lin))
now my problem is with : |v::vector|
| | appears
the routine that print is :
; parse the input file from command line
(define cmd-ln (command-line))
;;(format #t "The command-line was:~{ ~w~}~%" cmd-ln)
(define file-name (car (reverse cmd-ln)))
(define code-lst (literal-read-syntax file-name))
(define (prt-expr expr)
(pprint expr)
(newline))
(define (dsp-expr expr)
(pprint (write expr))
(newline))
(define do-not-display-result (map dsp-expr code-lst))
i do not know how to get rid of | | without loosing " " and keeping indentation
On Tue, Oct 17, 2023 at 8:49 AM Damien Mattei <damien.mattei@gmail.com> wrote:
>
> in fact guile and racket act the same way:
>
> scheme@(guile-user)> (display '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
> (include ../../Scheme-PLUS-for-Kawa/rec.scm)
>
> Welcome to DrRacket, version 8.9 [cs].
> Language: racket, with debugging; memory limit: 8192 MB.
> (display '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
> (include ../../Scheme-PLUS-for-Kawa/rec.scm)
>
> :-(
>
> i just want to output code with indentation ,if i do it with 'write'
> ,i loose indentation, if i do it with 'display' or 'pprint' i get
> indentation but code is no more valid as string are without " ".
>
> On Mon, Oct 16, 2023 at 11:52 PM Damien Mattei <damien.mattei@gmail.com> wrote:
> >
> > hello,
> > i find something strange in pprint:
> >
> > (import (kawa pprint))
> > (pprint '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
> >
> > will output:
> > (include ../../Scheme-PLUS-for-Kawa/rec.scm)
> >
> > which is no more an s-expr , it has wiped out the " " of the string,
> > and it is bugging my code
> >
> > isn't it more normal to output:
> > (include "../../Scheme-PLUS-for-Kawa/rec.scm")
> >
> > ?
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: pprint bug ?
2023-10-17 7:11 ` Damien Mattei
@ 2023-10-17 7:23 ` Damien Mattei
2023-10-17 7:38 ` Damien Mattei
0 siblings, 1 reply; 5+ messages in thread
From: Damien Mattei @ 2023-10-17 7:23 UTC (permalink / raw)
To: kawa mailing list
when outputting in REPL,things looks better:
#|kawa:30|# (display '(v::vector))
(v :: vector)
#|kawa:31|# (write '(v::vector))
(v :: vector)
#|kawa:32|# (pprint "hello")
hello
#|kawa:33|# (pprint '"hello")
hello
#|kawa:34|# (pprint (write '"hello"))
"hello"
On Tue, Oct 17, 2023 at 9:11 AM Damien Mattei <damien.mattei@gmail.com> wrote:
>
> i have this code:
>
> (require 'srfi-1) ; any,every
> (require 'srfi-69) ;; hash table
>
> ;; try include , use include-relative if problems
> (include "../../Scheme-PLUS-for-Kawa/rec.scm") ; rec does not exist
> in Kawa (no SRFI 31)
> (include "../../Scheme-PLUS-for-Kawa/def.scm")
> (include "../../Scheme-PLUS-for-Kawa/set-values-plus.scm")
> (include "../../Scheme-PLUS-for-Kawa/for_next_step.scm")
> (include "../../Scheme-PLUS-for-Kawa/declare.scm")
> (include "../../Scheme-PLUS-for-Kawa/condx.scm")
> (include "../../Scheme-PLUS-for-Kawa/block.scm")
> (include "../../Scheme-PLUS-for-Kawa/not-equal.scm")
> (include "../../Scheme-PLUS-for-Kawa/exponential.scm")
> (include "../../Scheme-PLUS-for-Kawa/while-do-when-unless.scm")
> (include "../../Scheme-PLUS-for-Kawa/repeat-until.scm")
> (include "../../Scheme-PLUS-for-Kawa/modulo.scm")
> (include "../../Scheme-PLUS-for-Kawa/bitwise.scm")
>
>
> (include "../../Scheme-PLUS-for-Kawa/slice.scm")
>
> (include "../../Scheme-PLUS-for-Kawa/scheme-infix.scm")
>
> (include "../../Scheme-PLUS-for-Kawa/assignment.scm")
> (include "../../Scheme-PLUS-for-Kawa/apply-square-brackets.scm")
>
> (include "../../Scheme-PLUS-for-Kawa/array.scm")
>
>
> ;; (matrix #(1 2 3))
> ;; matrix@4612b856
>
>
> (define-simple-class matrix ()
>
> (v::vector)
>
> ((*init* (vParam::vector))
> (set! v vParam))
>
> )
>
>
> ;; (define M (create-matrix-vect-by-function (lambda (i j) (+ i j)) 2 3))
> (define (create-matrix-vect-by-function fct lin col)
> (matrix (create-vector-2d fct lin col)))
>
> ;; (matrix-v M)
> ;;#(#(0 1 2)
> ;; #(1 2 3))
> (define (matrix-v M)
> (slot-ref M 'v))
>
>
>
> (define (matrix-vect-line-ref M lin)
> {v <+ (matrix-v M)}
> {v[lin]})
>
> i run:
>
> kawa curly-infix2prefix.scm ../AI_Deep_Learning/kawa/matrix+.scm
> (require (quote srfi-1))
> (require (quote srfi-69))
> (include "../../Scheme-PLUS-for-Kawa/rec.scm")
> (include "../../Scheme-PLUS-for-Kawa/def.scm")
> (include "../../Scheme-PLUS-for-Kawa/set-values-plus.scm")
> (include "../../Scheme-PLUS-for-Kawa/for_next_step.scm")
> (include "../../Scheme-PLUS-for-Kawa/declare.scm")
> (include "../../Scheme-PLUS-for-Kawa/condx.scm")
> (include "../../Scheme-PLUS-for-Kawa/block.scm")
> (include "../../Scheme-PLUS-for-Kawa/not-equal.scm")
> (include "../../Scheme-PLUS-for-Kawa/exponential.scm")
> (include "../../Scheme-PLUS-for-Kawa/while-do-when-unless.scm")
> (include "../../Scheme-PLUS-for-Kawa/repeat-until.scm")
> (include "../../Scheme-PLUS-for-Kawa/modulo.scm")
> (include "../../Scheme-PLUS-for-Kawa/bitwise.scm")
> (include "../../Scheme-PLUS-for-Kawa/slice.scm")
> (include "../../Scheme-PLUS-for-Kawa/scheme-infix.scm")
> (include "../../Scheme-PLUS-for-Kawa/assignment.scm")
> (include "../../Scheme-PLUS-for-Kawa/apply-square-brackets.scm")
> (include "../../Scheme-PLUS-for-Kawa/array.scm")
> (define-simple-class matrix () (|v::vector|)
> ((*init* (|vParam::vector|)) (set! v vParam)))
> (define (create-matrix-vect-by-function fct lin col)
> (matrix (create-vector-2d fct lin col)))
> (define (matrix-v M) (slot-ref M (quote v)))
> (define (matrix-vect-line-ref M lin) (<+ v (matrix-v M)) (bracket-apply v lin))
>
> now my problem is with : |v::vector|
>
> | | appears
>
> the routine that print is :
>
> ; parse the input file from command line
> (define cmd-ln (command-line))
> ;;(format #t "The command-line was:~{ ~w~}~%" cmd-ln)
> (define file-name (car (reverse cmd-ln)))
>
> (define code-lst (literal-read-syntax file-name))
>
> (define (prt-expr expr)
> (pprint expr)
> (newline))
>
> (define (dsp-expr expr)
> (pprint (write expr))
> (newline))
>
> (define do-not-display-result (map dsp-expr code-lst))
>
> i do not know how to get rid of | | without loosing " " and keeping indentation
>
> On Tue, Oct 17, 2023 at 8:49 AM Damien Mattei <damien.mattei@gmail.com> wrote:
> >
> > in fact guile and racket act the same way:
> >
> > scheme@(guile-user)> (display '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
> > (include ../../Scheme-PLUS-for-Kawa/rec.scm)
> >
> > Welcome to DrRacket, version 8.9 [cs].
> > Language: racket, with debugging; memory limit: 8192 MB.
> > (display '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
> > (include ../../Scheme-PLUS-for-Kawa/rec.scm)
> >
> > :-(
> >
> > i just want to output code with indentation ,if i do it with 'write'
> > ,i loose indentation, if i do it with 'display' or 'pprint' i get
> > indentation but code is no more valid as string are without " ".
> >
> > On Mon, Oct 16, 2023 at 11:52 PM Damien Mattei <damien.mattei@gmail.com> wrote:
> > >
> > > hello,
> > > i find something strange in pprint:
> > >
> > > (import (kawa pprint))
> > > (pprint '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
> > >
> > > will output:
> > > (include ../../Scheme-PLUS-for-Kawa/rec.scm)
> > >
> > > which is no more an s-expr , it has wiped out the " " of the string,
> > > and it is bugging my code
> > >
> > > isn't it more normal to output:
> > > (include "../../Scheme-PLUS-for-Kawa/rec.scm")
> > >
> > > ?
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: pprint bug ?
2023-10-17 7:23 ` Damien Mattei
@ 2023-10-17 7:38 ` Damien Mattei
0 siblings, 0 replies; 5+ messages in thread
From: Damien Mattei @ 2023-10-17 7:38 UTC (permalink / raw)
To: kawa mailing list
all is ok:
(require (quote srfi-1))
(require (quote srfi-69))
(include "../../Scheme-PLUS-for-Kawa/rec.scm")
(include "../../Scheme-PLUS-for-Kawa/def.scm")
(include "../../Scheme-PLUS-for-Kawa/set-values-plus.scm")
(include "../../Scheme-PLUS-for-Kawa/for_next_step.scm")
(include "../../Scheme-PLUS-for-Kawa/declare.scm")
(include "../../Scheme-PLUS-for-Kawa/condx.scm")
(include "../../Scheme-PLUS-for-Kawa/block.scm")
(include "../../Scheme-PLUS-for-Kawa/not-equal.scm")
(include "../../Scheme-PLUS-for-Kawa/exponential.scm")
(include "../../Scheme-PLUS-for-Kawa/while-do-when-unless.scm")
(include "../../Scheme-PLUS-for-Kawa/repeat-until.scm")
(include "../../Scheme-PLUS-for-Kawa/modulo.scm")
(include "../../Scheme-PLUS-for-Kawa/bitwise.scm")
(include "../../Scheme-PLUS-for-Kawa/slice.scm")
(include "../../Scheme-PLUS-for-Kawa/scheme-infix.scm")
(include "../../Scheme-PLUS-for-Kawa/assignment.scm")
(include "../../Scheme-PLUS-for-Kawa/apply-square-brackets.scm")
(include "../../Scheme-PLUS-for-Kawa/array.scm")
(define-simple-class matrix () (v :: vector)
((*init* (vParam :: vector)) (set! v vParam)))
(define (create-matrix-vect-by-function fct lin col)
(matrix (create-vector-2d fct lin col)))
(define (matrix-v M) (slot-ref M (quote v)))
(define (matrix-vect-line-ref M lin) (<+ v (matrix-v M)) (bracket-apply v lin))
i just put spaces in my source code at those expressions:
(v :: vector)
On Tue, Oct 17, 2023 at 9:23 AM Damien Mattei <damien.mattei@gmail.com> wrote:
>
> when outputting in REPL,things looks better:
>
> #|kawa:30|# (display '(v::vector))
> (v :: vector)
> #|kawa:31|# (write '(v::vector))
> (v :: vector)
> #|kawa:32|# (pprint "hello")
> hello
> #|kawa:33|# (pprint '"hello")
> hello
> #|kawa:34|# (pprint (write '"hello"))
> "hello"
>
>
>
> On Tue, Oct 17, 2023 at 9:11 AM Damien Mattei <damien.mattei@gmail.com> wrote:
> >
> > i have this code:
> >
> > (require 'srfi-1) ; any,every
> > (require 'srfi-69) ;; hash table
> >
> > ;; try include , use include-relative if problems
> > (include "../../Scheme-PLUS-for-Kawa/rec.scm") ; rec does not exist
> > in Kawa (no SRFI 31)
> > (include "../../Scheme-PLUS-for-Kawa/def.scm")
> > (include "../../Scheme-PLUS-for-Kawa/set-values-plus.scm")
> > (include "../../Scheme-PLUS-for-Kawa/for_next_step.scm")
> > (include "../../Scheme-PLUS-for-Kawa/declare.scm")
> > (include "../../Scheme-PLUS-for-Kawa/condx.scm")
> > (include "../../Scheme-PLUS-for-Kawa/block.scm")
> > (include "../../Scheme-PLUS-for-Kawa/not-equal.scm")
> > (include "../../Scheme-PLUS-for-Kawa/exponential.scm")
> > (include "../../Scheme-PLUS-for-Kawa/while-do-when-unless.scm")
> > (include "../../Scheme-PLUS-for-Kawa/repeat-until.scm")
> > (include "../../Scheme-PLUS-for-Kawa/modulo.scm")
> > (include "../../Scheme-PLUS-for-Kawa/bitwise.scm")
> >
> >
> > (include "../../Scheme-PLUS-for-Kawa/slice.scm")
> >
> > (include "../../Scheme-PLUS-for-Kawa/scheme-infix.scm")
> >
> > (include "../../Scheme-PLUS-for-Kawa/assignment.scm")
> > (include "../../Scheme-PLUS-for-Kawa/apply-square-brackets.scm")
> >
> > (include "../../Scheme-PLUS-for-Kawa/array.scm")
> >
> >
> > ;; (matrix #(1 2 3))
> > ;; matrix@4612b856
> >
> >
> > (define-simple-class matrix ()
> >
> > (v::vector)
> >
> > ((*init* (vParam::vector))
> > (set! v vParam))
> >
> > )
> >
> >
> > ;; (define M (create-matrix-vect-by-function (lambda (i j) (+ i j)) 2 3))
> > (define (create-matrix-vect-by-function fct lin col)
> > (matrix (create-vector-2d fct lin col)))
> >
> > ;; (matrix-v M)
> > ;;#(#(0 1 2)
> > ;; #(1 2 3))
> > (define (matrix-v M)
> > (slot-ref M 'v))
> >
> >
> >
> > (define (matrix-vect-line-ref M lin)
> > {v <+ (matrix-v M)}
> > {v[lin]})
> >
> > i run:
> >
> > kawa curly-infix2prefix.scm ../AI_Deep_Learning/kawa/matrix+.scm
> > (require (quote srfi-1))
> > (require (quote srfi-69))
> > (include "../../Scheme-PLUS-for-Kawa/rec.scm")
> > (include "../../Scheme-PLUS-for-Kawa/def.scm")
> > (include "../../Scheme-PLUS-for-Kawa/set-values-plus.scm")
> > (include "../../Scheme-PLUS-for-Kawa/for_next_step.scm")
> > (include "../../Scheme-PLUS-for-Kawa/declare.scm")
> > (include "../../Scheme-PLUS-for-Kawa/condx.scm")
> > (include "../../Scheme-PLUS-for-Kawa/block.scm")
> > (include "../../Scheme-PLUS-for-Kawa/not-equal.scm")
> > (include "../../Scheme-PLUS-for-Kawa/exponential.scm")
> > (include "../../Scheme-PLUS-for-Kawa/while-do-when-unless.scm")
> > (include "../../Scheme-PLUS-for-Kawa/repeat-until.scm")
> > (include "../../Scheme-PLUS-for-Kawa/modulo.scm")
> > (include "../../Scheme-PLUS-for-Kawa/bitwise.scm")
> > (include "../../Scheme-PLUS-for-Kawa/slice.scm")
> > (include "../../Scheme-PLUS-for-Kawa/scheme-infix.scm")
> > (include "../../Scheme-PLUS-for-Kawa/assignment.scm")
> > (include "../../Scheme-PLUS-for-Kawa/apply-square-brackets.scm")
> > (include "../../Scheme-PLUS-for-Kawa/array.scm")
> > (define-simple-class matrix () (|v::vector|)
> > ((*init* (|vParam::vector|)) (set! v vParam)))
> > (define (create-matrix-vect-by-function fct lin col)
> > (matrix (create-vector-2d fct lin col)))
> > (define (matrix-v M) (slot-ref M (quote v)))
> > (define (matrix-vect-line-ref M lin) (<+ v (matrix-v M)) (bracket-apply v lin))
> >
> > now my problem is with : |v::vector|
> >
> > | | appears
> >
> > the routine that print is :
> >
> > ; parse the input file from command line
> > (define cmd-ln (command-line))
> > ;;(format #t "The command-line was:~{ ~w~}~%" cmd-ln)
> > (define file-name (car (reverse cmd-ln)))
> >
> > (define code-lst (literal-read-syntax file-name))
> >
> > (define (prt-expr expr)
> > (pprint expr)
> > (newline))
> >
> > (define (dsp-expr expr)
> > (pprint (write expr))
> > (newline))
> >
> > (define do-not-display-result (map dsp-expr code-lst))
> >
> > i do not know how to get rid of | | without loosing " " and keeping indentation
> >
> > On Tue, Oct 17, 2023 at 8:49 AM Damien Mattei <damien.mattei@gmail.com> wrote:
> > >
> > > in fact guile and racket act the same way:
> > >
> > > scheme@(guile-user)> (display '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
> > > (include ../../Scheme-PLUS-for-Kawa/rec.scm)
> > >
> > > Welcome to DrRacket, version 8.9 [cs].
> > > Language: racket, with debugging; memory limit: 8192 MB.
> > > (display '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
> > > (include ../../Scheme-PLUS-for-Kawa/rec.scm)
> > >
> > > :-(
> > >
> > > i just want to output code with indentation ,if i do it with 'write'
> > > ,i loose indentation, if i do it with 'display' or 'pprint' i get
> > > indentation but code is no more valid as string are without " ".
> > >
> > > On Mon, Oct 16, 2023 at 11:52 PM Damien Mattei <damien.mattei@gmail.com> wrote:
> > > >
> > > > hello,
> > > > i find something strange in pprint:
> > > >
> > > > (import (kawa pprint))
> > > > (pprint '(include "../../Scheme-PLUS-for-Kawa/rec.scm"))
> > > >
> > > > will output:
> > > > (include ../../Scheme-PLUS-for-Kawa/rec.scm)
> > > >
> > > > which is no more an s-expr , it has wiped out the " " of the string,
> > > > and it is bugging my code
> > > >
> > > > isn't it more normal to output:
> > > > (include "../../Scheme-PLUS-for-Kawa/rec.scm")
> > > >
> > > > ?
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2023-10-17 7:38 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-10-16 21:52 pprint bug ? Damien Mattei
2023-10-17 6:49 ` Damien Mattei
2023-10-17 7:11 ` Damien Mattei
2023-10-17 7:23 ` Damien Mattei
2023-10-17 7:38 ` Damien Mattei
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).