Print

---

> 
> (define (quick-save)
>    (save-state)
>    (map (lambda (imol) (write-pdb-file (molecule-name imol)))
>        (model-molecule-list)))
> 

Umm, I'm afraid we've lost an imol on the way...
Here's a version that actually works:

---
(define (quick-save)
   (save-state)
   (map (lambda (imol) (write-pdb-file imol (molecule-name imol)))
       (model-molecule-list)))

---

JED