← Back to branch summary

~hypedyn-team/hypedyn/2.3-experimental

« back to all changes in this revision

Viewing changes to src/common/fileio.scm

  • Committer: Chuah Teong Leong
  • Date: 2014-01-03 16:08:09 UTC
  • Revision ID: teongleong@gmail.com-20140103160809-0v44thf8cuu7eem3
removed some debug print statements; [partial bugfix] #1258157 lagginess is caused by two things, one the time to build the sexpr of the whole story, second the time to write to the file. By switching to write-simple instead of write in kawa I was able to make the saving process to be fast

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/common/fileio.scm
27
27
  (require "preferences.scm")
28
28
  (require "evaluator.scm")
29
29
  (require "../kawa/miscutils.scm")
 
30
  (require "../kawa/strings.scm") ;; to-string
30
31
  (require "../kawa/file.scm")
31
32
  (require "../kawa/system.scm")
32
33
  (require "../kawa/ui/dialog.scm")
269
270
                    (if safetoproceed
270
271
                        (begin
271
272
                          (format #t "writing~%~!")
272
 
                          (write mysexpr output-port)
 
273
                          ;(write mysexpr output-port)
 
274
                          (write-simple mysexpr output-port)
 
275
                          (display "write finished")(newline)
273
276
                          (close-output-port output-port)
274
277
                          #t)
275
278
                        #f)))