|
@@ -2244,7 +2244,9 @@ name extensions listed in %load-extensions."
|
|
(pad (if (> pad-count 0)
|
|
(pad (if (> pad-count 0)
|
|
(make-string pad-count #\space)
|
|
(make-string pad-count #\space)
|
|
""))
|
|
""))
|
|
- (visual-depth (make-string depth #\space)))
|
|
|
|
|
|
+ (visual-depth (if (> depth 0)
|
|
|
|
+ (make-string depth #\space)
|
|
|
|
+ "")))
|
|
(format #t ";;; loading ~a~a ~a~a~%" pad depth visual-depth file)
|
|
(format #t ";;; loading ~a~a ~a~a~%" pad depth visual-depth file)
|
|
(force-output))))))
|
|
(force-output))))))
|
|
|
|
|