IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-20 11:38:25 -06:00
Code Issues Packages Projects Releases Wiki Activity

Put the F::Q console output under the debug flag instead of

Browse Source 
eliminating it entirely.  Comes in handy now and then.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@8811 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
David Hampton 2003-07-02 03:30:13 +00:00
parent 87529fd3b0
commit fdc8099bcf
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/scm/price-quotes.scm
View File

@ -233,7 +233,7 @@
#t
(lambda ()
(set! results (read from-child))
;; (write (list 'results results)) (newline)
(gnc:debug (list 'results results))
results)
(lambda (key . args)
key)))))
@ -321,7 +321,7 @@
(catch
#t
(lambda ()
;; (write (list 'handling-request request)) (newline)
(gnc:debug (list 'handling-request request))
;; we need to display the first element (the method, so it
;; won't be quoted) and then write the rest
(display #\( to-child)
@ -332,7 +332,7 @@
(newline to-child)
(force-output to-child)
(set! results (read from-child))
;; (write (list 'results results)) (newline)
(gnc:debug (list 'results results))
results)
(lambda (key . args)
key)))