*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
#include "libguile/__scm.h"
if (!name || !*name)
return NULL;
- file = scm_malloc (strlen (name) + 3);
+ file = malloc (strlen (name) + 3);
strcpy (file, name);
if (file[strlen (name) - 1] != '/' && file[strlen (name) - 1] != '\\')
strcat (file, "/*");
return NULL;
}
- dir = scm_malloc (sizeof (DIR));
+ dir = malloc (sizeof (DIR));
dir->mask = file;
dir->fd = (int) hnd;
- dir->data = scm_malloc (sizeof (WIN32_FIND_DATA));
+ dir->data = malloc (sizeof (WIN32_FIND_DATA));
dir->allocation = sizeof (WIN32_FIND_DATA);
dir->size = dir->allocation;
dir->filepos = 0;