(getBuiltInFont gui-environment)))
(define-method (get-font (gui-environment <gui-environment>) filename)
- (let ((getFont (get-irrlicht-proc "getFont" gui-environment))
- (font (getFont gui-environment filename)))
+ (let* ((getFont (get-irrlicht-proc "getFont" gui-environment))
+ (font (getFont gui-environment filename)))
(if (null-object? font)
(error "In procedure get-font: Font unavailable")
font)))