Fixed a bug in adding new scm function type.
Fixed a bug in adding new scm function type.

inflector/atomspace,misgeatgit/atomspace,yantrabuddhi/atomspace,rTreutlein/atomspace,rTreutlein/atomspace,inflector/atomspace,yantrabuddhi/atomspace,inflector/atomspace,rTreutlein/atomspace,misgeatgit/atomspace,AmeBel/atomspace,yantrabuddhi/atomspace,ArvinPan/atomspace,AmeBel/atomspace,ArvinPan/atomspace,misgeatgit/atomspace,misgeatgit/atomspace,yantrabuddhi/atomspace,AmeBel/atomspace,yantrabuddhi/atomspace,AmeBel/atomspace,ArvinPan/atomspace,inflector/atomspace,misgeatgit/atomspace,ArvinPan/atomspace,AmeBel/atomspace,rTreutlein/atomspace,rTreutlein/atomspace,inflector/atomspace