How to remove alpha layer with script-fu

[Gravitus]

I need to make action with script-fu: Layer->Transparency->Remove Alpha Channel

 

I am using this chunk of script:

(define (pirmas-crop image layer)
  (let* (
          (filename (car (gimp-image-get-filename image)))
        )
    (HERE I WANT INPUT ROW TO REMOVE ALPHA CHANNEL)
    (file-jpeg-save 1 image layer filename filename 0.93 0 0 1 "" 2 0 0 0)
  )
)