- (save-data)
- (let ((res (,fun-name mob-id mob-data)))
- (set! mob-z-index (car res))
- (set! mob-data (cadr res))))))))
+ (cond ((keyword? option)
+ (assoc-ref saved-data (keyword->symbol option)))
+ (else
+ (save-data)
+ (let ((res (,fun-name mob-id mob-data)))
+ (set! mob-z-index (car res))
+ (set! mob-data (cadr res))))))))))